home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / 23match.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1021 b   |  43 lines
  1. 100  REM *** '23 MATCHES'"
  2. 110  PRINT "LET'S PLAY 23 MATCHES. WE START WITH 23 MATCHES,"
  3. 115  PRINT "YOU MOVE FIRST. YOU MAY TAKE 1,2 OR 3 MATCHES."
  4. 120  PRINT "THEN I MOVE...I MAY TAKE 1,2 OR 3 MATCHES."
  5. 125  PRINT "YOU MOVE, I MOVE AND SO ON. THE ONE WHO HAS TO"
  6. 130  PRINT "TAKE THE LAST MATCH LOSES."
  7. 135  PRINT "GOOD LUCK AND HAVE FUN!"
  8. 140  PRINT
  9. 150  LET M=23
  10. 200  REM *** THE HUMAN MOVES
  11. 205  PRINT
  12. 210  PRINT "THERE ARE NOW ";M;"MATCHES."
  13. 215  PRINT
  14. 220  INPUT "HOW MANY DO YOU TAKE"; H
  15. 240  IF H>M THEN 510
  16. 250  IF H<>INT(H) THEN 510
  17. 260  IF H<=0 THEN 510
  18. 270  IF H>=4 THEN 510
  19. 280  LET M=M-H
  20. 290  IF M=0 THEN 410
  21. 300  REM *** THE COMPUTER MOVES
  22. 305  IF M=1 THEN 440
  23. 310  LET R=M-4*INT(M/4)
  24. 320  IF R<>1 THEN 350
  25. 330  LET C=INT(3*RND)+1
  26. 340  GOTO 360
  27. 350  LET C=(R+3)-4*INT((R+3)/4)
  28. 360  LET M=M-C
  29. 370  IF M=0 THEN 440
  30. 380  PRINT "I TOOK";C;"...";
  31. 390  GOTO 210
  32. 400  REM *** SOMEBODY WON (SEE LINES 290,305,370)
  33. 410  PRINT
  34. 420  PRINT "I WON!!! BETTER LUCK NEXT TIME."
  35. 430  GOTO 140
  36. 440  PRINT
  37. 450  PRINT "OK, SO YOU WON. LET'S PLAY AGAIN."
  38. 460  GOTO 140
  39. 500  REM *** THE UMAN CHEATED! (SEE LINES 240 THRU 270)
  40. 510  PRINT "YOU CHEATED! BUT I'LL GIVE YOU ANOTHER CHANCE."
  41. 520  GOTO 215
  42. 999  END
  43.